home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / swagd-f / dos.swg / 0030_Is there 4DOS installed.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  424 b   |  19 lines
  1. (*
  2. From: MIKE DICKSON
  3. Subj: IS There 4DOS
  4. *)
  5.  
  6.         FUNCTION Running4DOS : Boolean;
  7.         VAR Regs : Registers;
  8.         begin
  9.            With Regs do
  10.               begin
  11.                  ax := $D44D;
  12.                  bx := $00;
  13.               end;
  14.            Intr ($2F, Regs);
  15.            if Regs.ax = $44DD then Running4DOS := TRUE
  16.                               else Running4DOS := FALSE
  17.         end;
  18.  
  19.